<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
checkadmin(4)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>标签列表</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
</head>
<body>
<div class="addrecord"><ul><li><a href="tag_generator.asp">标签生成器</a></li></ul></div>
<div style="width:600px;margin:0px auto;">
<br/>提示：本系统调用标签有以下两种方式：<ul><li>1.直接将标签代码放到模板中，例如：&lt;!--{rzlist xxx}--&gt;xxx&lt;!--{/rzlist}--&gt;。如果要修改标签代码，需修改相关模板，建议熟悉HTML代码的朋友使用。</li><li>2.先定义标签并保存到数据库，然后将@{tag.xxx}标记放到模板中，这样，只需放置一次标记，日后修改标签的时候可以直接在此处修改而不用修改模板。
</div>
<table cellspacing="0" cellpadding="0" class="table_800">
<tr>
    <th class='tdcenter'>序号</th>
	<th class='tdcenter'>标签名称</th>
	<th class='tdcenter'>唯一标识</th>
	<th class='tdcenter'>调用标记</th>
	<th class='tdcenter'>操作</th>
</tr>
<%
dim page,sql,MyPage,rs,u_level,u_strLevel
page=GetIntQueryString("page")
sql = "select * from [c_tags] order by tag_name"
if page<=1 then
page = 1
end if
Set MyPage = New RZPage
MyPage.SetSQL = sql
MyPage.PageSize = 20
MyPage.SetCss_PreNext="nextprev"
MyPage.SetCss_NumPage="pagenum"
MyPage.SetCss_CurrentPage="currentpage"
Set rs = MyPage.GetRS()
dim i
For i=1 To MyPage.PageSize
If Not rs.EOF Then 
%> 
<tr  class="row">
<td>
<%
if page<=1 then 
response.write(i)
else
response.write((page-1)*MyPage.PageSize+i)
end if 
%>
</td>
<td style="padding-left:5px;"><%=rs("tag_name")%></td>
<td style="padding-left:5px;"><%=rs("tag_tag")%></td>
<td style="padding-left:5px;"><%="@{tag."&rs("tag_tag")&"}"%></td>
<td class='tdcenter'><a href="tag_generator.asp?id=<%=rs("id")%>">修改/查看</a>&nbsp;<a  onclick="return confirm('您确定要删除吗？');" href="tag_delete.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.Movenext
Else
Exit For
End If
Next
%>
</table>
<div id="bottompage">
<%MyPage.ShowPage()%>
<span class="recordcount">
<%MyPage.ShowPageInfo()%>
</span>
</div>
</body>
</html>